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News and Reviews 


by Mike Dunn, Co-Editor 


Many of our members bought the new Atari 520ST computers and 
are very happy with them. Some did not work after the trip overseas, 
but all could be fixed by re-seating the chips. Atari is to be congratulated 
for helping user groups to fix their computers and giving advice over the 
phone on how to do so. A letter just received from Atari states that BASIC 
is almost ready to ship as well as the upgrade ROM; both will be sent 
free of charge to those who bought their ST through the club. Jim 
Bumpas will be in charge of the ST info since he bought one and | didn't. 
Software for the ST is being announced at a rapid rate; the newest is 
by Batteries Included (17875 Skypark North, Suite P, Irvine, CA 92714.) 
Called The Isgur Portfolio System it is a very elaborate stock market 
program, including tax implications, what-if abilities, 
Telecommunications, etc. It costs $250 and is for the IBM-PC and the 
520S T 

Two interesting new devices are announced this month.. One is 
Computereyes (Digital Vision, 14 Oak St #2, Needham, Ma 02192,), a 
$130 interface to attach a video camera or TV to your Atari to obtain 
digitized pictures. Larry Gold will report more about this. The other is 
$3500 fingerprint biometric verification and identification system that 
reads your fingerprints and verifies it before you can use your computer. 
Called the RidgeReader (Command Productions, 62 Bowman, Rye 
Brook, NY 10573) it is just the thing to keep the kids from playing games 
on your Atari when they should be studying. 

TAB Books (POB 40, Blue Ridge Summit, PA 17214) has just released 
their new 96 page catalog of technical books. If you're are not familiar 
with TAB, they put out technical books on just about any subject you 
can think of, from computers to the story of the Lotus car; from books 
on the Atari to how to repair clocks. An example is a book they recently 
sent to me to review — Computer Technicians Handbook by Art 
Margolis ($17, 500 pages). It begins by explaining how computers work, 
truth tables, binary arithmetic, how the various chips including CPU's, 
interface chips, logic devices, memories, etc. work. It also explains 
machine language and gives hints on how to trouble shoot and repair 
computers. This is not a step-by-step how to do it guide; the book tries 
to explain how everything works so you can fix the computer by 
understanding what is happening. 

MPP (Microbits) of Albany, OR has closed down and reopened with 
the same principles as Supra Corp 1133 Commercial Way, Albany, OR 
97321, (503)967-9075. They will continue to market MPP products. Kirt 
Stockwell is no longer with them, but has formed a new company 
SofMarc (4325 Sean, Eugene, OR 97402 / 503-689-3565, BBS 
689-2348) Their first product is our new Bulletin Board System ESP 
Mindlink - see Larry Gold’s article. 

Batteries Included, the Canadian software company, has dropped 
plans to produce the 80 column cartridge for PaperClip because of 
difficulty of obtaining the proper chips in a timely manner. Incidentally, 
I've also been having problems with dropped characters with PaperClip 
— anyone else having the problem? 
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We have many new disks to add to the library this month thanks 
to all the great programs our members keep sending in and also from 
other clubs we trade with. The quality of the public domain programs 
is becoming quite remarkable, and some of the disks are of commercial 
quality. The single subject disks all have built in documentation and/or 
help facilities. 

Best of ACE -15 ($10). The latest programs from the newsletter, 
it includes SkyPlot, the long astronomy program from our pres Dick 
Barkley which locates and pictures objects in the night sky, run time 
versions of Stan Ocker's Action! program Double Bounce as extensively 
modified by Rick Groskiewictz (who incidentally sent us four disk sides 
full of Action! programs and articles for the next few issues), and other 
programs from the last couple of issues of ACE. 

ACTION! Disk -4 ($10). Has both source code and run-time 
versions of the recent ACTION! programs in ACE including this months 
ROWS by Stan Ockers (but not in run-time since it wouldn't work), 
XECOPY and FID by Dale Lutz, and several variations of Stan's BOUNCE 
program by Rick Groskiewictz. Rick finds BOUNCE to be his favorite 
game, so he has modified it for one player, one joystick, etc. There are 
also some of the utilites found in the last few issues. 


ACE Business Disk -2: Data Manager by John Logan (š10) For 
you BASIC XL owners, here is a very nicely done data base system 
which even has a built in tutorial. We could supply it with the BASIC 
XL runtime for those who do not own the O.S.S. cartridge; but | don't 
know how much memory that might take up and interfere with the 
program. Worth getting just to see the various programming techniques 
used if you have BASIC XL. 

ACE Business Disk -3: General Ledger ($10) by Neville Williams. 
This General Ledger program is designed for a small business with 99 
accounts. Written by one of our Australian members, it requires you to 
use the European style of dating (DDMMYY). It includes an on disk 
manual which is very good; please see review in this issue of the disk. 

From other Atari Clubs: 

Wizard $15 a public domain Bulletin Board System. 

**from Computer Squad (c/o Suzi Subeck, 2625 Corinth Road, 
Olympia Fields, IL 60461) comes two of the most outstanding public 
domain programs I’ve ever seen: 

Computer Squad 3-D CAD System ($10). Written by Steve Ulstad, 
a professional arcade game designer, this machine language program 
allows you to draw and save screens, offset it, reflect the design, change 
scale on one or more axes, perform translations, change viewing angle, 
depth and aspect ratios, rotate, and print the images. Comes with 
extensive on disk documentation. 

Computer Squad CAD/CAM Facility Layout ($15 2 disk sides). 
by Jack Gilchrist and Phil Heavens. The authors are used to working on 
large scale graphic systems, this program is more geared to floor plans. 
It also has 3-D capabilities. You can also change the scaling, viewing 
windows, viewing angle, etc. It includes extensive on-line help facilities, 
examples and a large manual you can print out. It also includes a text- 
labeling feature. It is written in BASIC and takes up two disk sides. 


ERACE UPDATE 


DISK NO. 11 
GERMAN,PORTUGUESE,FRENCH — These three ianguage 
programs are similar to the Spanish and Italian on the ERACE Disk #9 
but in a multiple choice format. 
LEXICON — provides 200 words, their synonyms and antomyms 
to develop word skills. 
LETTNUMB — A letter and number identification for the preschooler. 
TRANSITN — TRANSITION: A Game of Logic. Only two ways to 
solve the puzzle. Very challenging. 
TICTOC — What time is it? Learned to tell the time the old fashioned 
way. 
HELP — Documentation for programs on this disk. 
— N. F. Young 
ERACE Sig Editor 


TEASERS BY TOBBS 


Teasers by Tobbs ($55, Sunburst communications, Recommended 
grade levels: 4 to adult) contains two challenging programs — Addition 
and Multiplication. There are six levels to each program. Level 1-3 provide 
basic mathematic drills to reinforce mental arithmetic skills. In Levels 
4-6, the puzzle is in reverse causing the student to work backward by 
subracting/dividing. — 

The student is learning relationships between mathematical 
operations. Every level increases in diffirculty. 

Tobbs is a lovable character who appears with the drill/puzzle to 
guide the student in finding the missing number. There are visual 
responses whether an answer is correct or not. The instructions are clear 
and precise and included on the disk. One or two persons can play. There 
is a 30-page manual in a bright orange notebook with suggestions for 
both parent and teacher. 

Joe, our 3rd grader enjoys this disk. It can be challenging yet hits 
the basics. The boy down the street who hates math is drawn to the 
higher levels. He likes to use his logic to solve the puzzles. 
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XE COPY 


The first thing | did after | familiarized myself somewhat with my 
130XE was to write a sector copier which uses all 128K available to copy 
a single density disk in a single pass. This allows multiple copies to be 
made easily because the whole disk is read into memory at a time. Double 
density disks can be copied in two passes. Even though it used to be 
a tight squeeze to be able to copy a single density disk in two passes 
with the old 800, Í had plenty of room left over in the 130XE to do it 
in a single pass. 

Using the Program: 


The program is extremely easy to use. Those of you with an ANALOG 
speech synthesizer are in for a treat — if you hook it up before running 
the program, you will be audibly reminded in nearly clear English to insert 
the source disk, or whatever. The only keys used are the Start and Select 
buttons. The program is completely self prompting along the way. One 
point to bear in mind is when you are copying a double density disk, make 
sure not to forget that first you have to write out the first half of the 
disk on all your destination disks, then read in the other half, and write 
the second half out to all of the destination disks. 

All your destination disks must be preformatted in the correct 
density before you begin copying. If an error occurs when copying, you 
will be given a chance to retry that sector. 

As a disk is read in or written out, a bar graph of letters (R for read, 
W for write) goes across the screen to show you how the program is 
progressing. For those of us with digital track readouts, however, this 
is not such a big deal. 

The Program itself 

As some of you observant ones may have already noticed, XECOPY 
is written in beautiful structured ACTION!. ACTION! is a logical choice 
for this program, since it allows me easy access to operating system 
routines for reading a sector while at the same time allowing me to code 
in a high level language. 

A few of the procedures may be of interest to the programmers out 
there. Procedure SystemCheck() could be used in any programs made 
only for the 130XE. This procedure actually does two checks — first 
it verifies the bank switching ability of the computer by storing a number 
in the main memory area, attempting a bank switch, and storing another 
number to the same memory address. The bank is then flipped back, 
and a check made to see if the original stored number is still intact. If 
so, this test is passed. The second test checks to see if a cartridge is 
present or not. Note that my procedure BankChange() automatically flips 
out the built in BASIC when it is called, so the BASIC is gone when this 
test is tried. All the program does is store a series of values in a location 
where a Cartridge could be, and then it checks to see that the same value 
is still there. If a ROM were present, the value stuffed in would not 
necessarily be there when the location is read. If this happens, then this 
test is failed. If either test is failed, the machine locks into an infinite 
loop (but since location 580 is alerted, reset will cause the machine to 
reboot). 

Those with a speech synthesizer will want to look at procedures 
InitSpeak() and Say(). The Say() procedure takes a byte array of 
allophones (whose end is marked by a 255) and dumps them out to the 
speech synthesizer, while the InitSpeak() procedure simply prepares the 
joystick ports for output. 

Another procedure of note is the procedure CheckSpeak(). It checks 
whether or not an ANALOG speech synthesizer is hooked up so the 
program will talk if possible. All it does is send a delay to the synthesizer, 
and waits to see how long it takes to respond. If it takes too long (more 
than 3 jiffies), then Say() procedure is replaced by a simple delay 
procedure. 

The HandleSector() procedure is used to set up the call to the 
resident disk handler. | must give credit to Roger Edwards who presented 
the technical information for this in the Edmonton Atari User’s group 
newsletter. Note that when a double density sector is to be written or 
read, a different system jump must be made than when a single density 
sector is handled. Also note that this same routine both reads and writes 
sectors depending on the value of the BYTE direction. 

Program Notes 

The program simply goes from sector 1 to sector 720 and reads the 
disk into memory. Bank switching is done whenever the current bank 
gets filled up. Notice that the procedure ReadAndWrite() looks after the 
buffer allocation. It both reads in and writes out the sectors by calling 
HandleSector(). You may notice that the first three sectors are handled 
specially by ReadAndWrite if the disk was double density. It turns out 
that on all disks, sectors one through three are in single density. These 
are the boot sectors which are read first when you boot up your 
computer. 


If you wish to compile this program yourself with your ACTION! 
cartridge, you will have to have the Runtime package. Since the program 
will not run if a cartridge is installed, it is impossible to run it with the 
ACTION! cartridge in. Therefore, those of you without SYS.ACT will have 
to order the disk with XECOPY.COM on it in order to use the program. 
If you have SYS.ACT, make sure you compile XECOPY from off of the 
disk so that it resides low enough in memory in its runtime form (i.e. make 
sure that the editor is cleared before you compile). 

Conclusion 

This program is not the ultimate in a copier. There is still some more 
memory room left to add all kinds of bells and whistles. However, | 
wanted to make a simple, easy to use sector copier to use all of the 
130XEs memory for a buffer so | could make multiple copies of disks 
(especially double density) quickly and easily. XECOPY fits the bill nicely, 

and will be a very useful addition to any 130XE owner's library. 
— Dale Lutz 
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GENERAL LEDGER ACCOUNTING SYSTEM 

The General Ledger Accounting System (by Neville R. Williams of 
Queensland, Australia and available from ACE for $10, including a 
Translator) is a well written and well documented general ledger 
accounting program. The author has included an excellent manual and 
a brief tutorial on disk. The program requires an 8-bit Atari with at least 
48k, a Translator with XL/XE machines, one disk drive and a printer 
capable of coding tab stops. 

The system limitations include: 99 accounts numbered from 1 to 
99. A total of 1,000 transactions can be entered before a balance forward 
is required and each entry is limited to ten dissections. The program 
presupposes that the user has a basic understanding of the double-entry 
system of accounting. 

As | worked with this program | was more and more impressed with 
the thoroughness of the programmer's work. Try as | might, | could not 
find any place which did not work or any area which was not well 
documented. However, | do want to caution those who may use the 
program that when the date is called for, the program requires the date 
be given in the following format: DDMMY Y. 

| want to see more accounting applications from Neville Williams 
as he clearly understands what is needed in an accounting program. 

— Kathy Henderson 


BUMPAS REVIEWS 


GEMSTONE WARRIOR (SSI, $35) is an “action, strategy and 
adventure in the netherworld.” Demons have stolen the Gemstone and 
separated it into 5 pieces which you must find and reassemble. The 
keyboard is required for many functions, but the joystick is an option 
for movement, firing and searching. The game may be saved, paused, 
or played at various skill levels. 

To make your quest difficult (if not impossible!) are diseased and 
vicious monsters, Thieving Flyers, Skeletons, Gas Plants, Giant Amoebas, 
Ghosts, Summoning Eyes and the Demons themselves. 

As the Brave Warrior who has taken up this challenge you will 
depend upon your primary weapons (arrows and magic bolts). But you 
will also find up to 15 different types of magic items (some of which 
will be inside coffins and chests) and treasure. Several of the magic items 
have undocumented properties — you must discover what they do (they 
may differ from game to game). Even the items for which you know what 
they do, experience will be needed to discover how to use them 
appropriately. 

There are various doors, archways and gates into the various rooms 
of the underground caverns. Some places will appear to be dead ends 
with no way out as you return to the same rooms again and again. But 
perseverance, cleverness, agility and careful observation techniques will 
carry you through to success. This is not a game to master in one sitting! 

Synapse & Broderbund have released the first "electronic novel", 
MINDWHEEL ($?). Nothing less is at stake than the survival of 
civilization. Four unprotected disk sides of files are provided together 
with a hard-bound novelette of nearly 100 pages. You must provide a 
"Bookmark" disk on which to save a game in progress. If you have a 
printer, you can also create a printed record of your progress in the game. 

Two disk drives are required, and the program also supports 52k 
add-on RAM boards, Mosaic and Axlon Ramdisks. A Happy-modified disk 
drive is also specifically mentioned for those who might want faster 
loading and responses. 

Basically a text adventure, the program comes closer to a "natural 
language" game than earlier text adventures do. | believe it recognizes 
close to 1200 words. You need to read the book to learn as much as 
possible about the four main characters in the game. You must “travel” 
through the minds of these four: Bobby Clemon, an assassinated rock 
star; The Generalissimo, a dictator and war criminal; The Poet, composer 
of epic literary achievements; and Dr. Eva Fein, scientist, humanist and 
distinguished musician. 

The object of your quest is to find The Cave Master and the Wheel 
of Wisdom which he guards. 

l'm having more fun with COLONIAL CONQUEST (SSI, $40) than 
l've had with any computer game in a long time. It's a very social game 
— best played with 6 players. But the computer will play any of the 6 
positions not used by one of your friends. Each computer position may 
be separately set at one of 10 levels of difficulty. Players control one 
or more of 6 colonial powers: England, Germany, France, USA, Japan 
and Russia in one of three scenarios: Standard (no one starts with any 
colonies), and two historical scenarios (1880 and 1914). 

The map scrolls across 4 screens of very good graphics containing 
131 land areas plus the oceans. Each player may build and move armies 
and fleets to attack or garrison possessions. Land zones may be fortified. 
You may pay for espionage. The information you get may not be entirely 
accurate, but will give you some indication of the economic value of a 
zone and the number of its defenders. You may also subvert the armies 
in zones not controlled by other players in order to control the zones 
outright, or to make conquest by force easier. Economic aid may be given 
to any other player or to a minor country. 

The real strength of this game is the opportunity and necessity for 
diplomacy to help you win. Especially Russia and Japan need skills in 
this area to do well. If you just fight all the time you'll find your forces 
depleted and so cannot be much of a threat to anyone. On the other hand, 
if you're too threatening, anyone can be wiped out by a combination of 
other players. 

Each player spends an annual budget of income from the possession 
of land zones and gifts of economic aid from other players. Control of 
all the zones in a larger region (i.e., South America or the Far East) may 
produce big bonuses of income. 

As a grand strategic multi-player game of diplomacy, treachery and 
"force majeur” this game is unexcelled. 

l've just begun using the new Prentice P-212ST modem (after 
selling my 300 baud Hayes). This 1200 baud modem sells for less than 
$300 and advertizes "Hayes compatibility". 


If you are used to all the lights on a Hayes, you might miss them. 
The Prentice has only a power light and a carrier detect light. You can 
set the internal speaker to be on at all times, so you should be able to 
hear some data noises. There are no dip switches to set: all modem 
functions are software controlled and can be set by commands from 
terminal mode in your communications software. 

l've been using Amodem quite a lot lately, but so far l've been unable 
to use the Autodial Directory which was a nice feature of the program 
when I used it with the Hayes. I’ve set the software switch (ATS18 =O) 
to emulate the Hayes. But when the autodial selection is made the screen 
tells me it’s dialing, and then that it’s made a connection. But no dialing 
occurs, and no connection is made. When | dial manually on the keyboard 
in terminal mode | have no trouble making connections. 

| never realized how much | would enjoy seeing a whole screenful 
of information flash on the screen at once. But after watching the cursor 
paint across the screen at 300 baud, 1200 baud seems extremely fast. 
| can't even imagine 2400! 

— Jim Bumpas, Co-Editor 


VP’s RAMBLINGS 


The summer is about to end, school is ready to start and Atari Inc. 
is starting to go full blast with the ST, XE and anything else that they 
have up their sleeve. The stores are beginning to have and sell new 
programs and the future looks better for Atari than it has in a long time. 

One company which hasn’t been sitting back and waiting is 
Broderbund. They have a new graphics disk for the Print Shop program. 
This is the second graphics disk for that program and it is just as good 
as the one before and makes the choice of graphics that much more for 
the user to choose from when he uses the program. The newsletter has 
from time to time used these graphics when it was appropriate to the 
issue. Broderbund should be congratulated for continuing to make a fine 
program better and more useful. 

| wish more companies would update their programs or enhance 
them with more features as has Broderbund. They have done the same 
with templates that they have brought out for Synapse's SynCalc. | will 
talk more about this in another article. 

We are Beta testing a BBS program for a new company called 
Sofmark. The board is almost to its last stage of developement so please 
bear with us for any problems you may find. We want to have your 
comments on the board and also let us know if there are any features 
you would like to see incorporated into the board which are not there. 
When it does come out it will be called BBS Mindlink. 

The BBS is easy to use as all you have to do when you call up is 
give it your name and after a short pause it will ask for your phone no., 
then four character password. Please be careful as the board is written 
in machine language and is very fast in its respnse time. Once you have 
signed on and have gone through the board be sure that you answer the 
prompt about saving your password or you will have to sign on again 
until you have saved your password. | can't upgrade your level to have 
access to the whole board unless you log your password. | hope uou 
like it and will let us know what you think about it. 


RAIMIDISK 


The new Atari 130XE has an extra 64K of bank memory which can 
be utilized as a RAM disk which will run 20 times faster than a normal 
floppy disk. The program TMDRIVE.BAS can be used in conjuction with 
the Atari Translator to give you a single density disk emulator with 523 
free sectors. It should work with any DOS system which uses the Atari 
file management system (most do). 

To run the program, first boot the translator disk, then boot whatever 
DOS system you normally use. Now run the program from BASIC which 
will automatically set up the drive emulator (be sure you have saved the 
program first, as running it will destroy it). Type NEW before continuing. 
You can now address this RAM disk as D4:. 

Do not try to format the RAM disk as it will indicate more free 
sectors than there actually are. If you need to reformat it, then just run 
the program again. If you are using Atari DOS 2.0 then you can put 
DUP.SYS and MEM.SAV onto D4:. First copy the files you want to D4: 
(DUP.SYS, MEM.SAV, etc.). Then from Basic type: 

IF PEEK(6192) 249 THEN POKE 6192,52. 

IF PEEK(5948) 249 THEN POKE 5948,52. 


— Larry Gold 


— Ralph Walden 
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XE DISK COPIER 


; ME disk copier 


; Version as Of 7:88 June 18 


; by Bale Lutz 
;System Equates 
Int lude"B8:sys.act" 


DEFINE Read="$52",Write-"$58", doubles" 
rage 
Single-"i" ,start="6",select="§" 


codetop-"14968", memtop-"48159" 


BYTE DDEUEC-2188, 
DUNTT-$181, 
DCOMND-SI82, 
DSTAT5-$3183, 
CONS0L-53273, 
Pacti-54818,pdat-54Bi6, 
mode, ddublecode, direction, 
flasher-718,bank,realmode,grapher 


PBÜFFER-$384, 

SECTüR-$:84, 
HIIMBYTES-S$188,buftop,serbegin, 
secend 


CARD 


BYTE ARRAY dest - [ 21 7 55 17 8 12 
i2 8 11 28 $7 15 11 8 255 1, 

source - [ 55 55 58 55 55 8 255 1, 
disk = [ 21 12 55 41 222 2 3 39 7 
7 55 59 2 55 1i 59 17 8 255 1, 
insert - [ 12 12 11 Z 55 55 52 17 B 25 
s 1, 

name - í 4 2 2 28 5 2 2 FE 28 527 2 2 
45 31 17 55 B 255 1, 

intro = [ 55 55 12 12 44 61 62 2 9 
25 25 55 55 2 Ii i2 12 55 41 2 8 24 
3 13 51 Z 2 2 8 255 1 


PROC PSKTNU-SE45Z() 
RETURN 


PROC SIQU-SE459() 
RETURN 


PROC SoBack() ¿stub used to return to 
RETURN 


r 


rhandlesector after erro 


ram 
RETERE safter error 
PROC Setscreep(1 


Graphics €18) 

Dutt (5) 

PrintBhe(6," now) 

IF direction-read THEN 
PrintBbe 6," READING) 

ELSE 
PrintBe ta, * 

FI 

PutpE (51 

PutpFf63 

RETURN 


WRITING’) 


PROC Myfrror 3 


BYTE a 


Graphics ¢iz3 
PutDE IG) 
Printet,” 
PutbE(6) 
PrantBe(6," 
PrintBe th," 
PutDE (51 
PriptpE 6," 
PrintDE(6," 
PutbE £63 
WHILE consoii?start AND ransoii? sel 
ect bü 
fiasher--t1 
nb 
IF consoi-start THEN 
Set5creent) 
FOR azi TO (sector/grapher3 bü 
IF direction-read THEN 
Putb(5, "Ri 
EL5E 
PuUth(5, "Mi 
FI 
ap 
GoBack (I 
ELSE 
Restartí) 
FI 
RETURN 


error encountered) 


STAR THE 
RETRY 


SELEC TH 


exit’ 


PROC Handiesector OH 
DDEUEC-$71 disk device 
PHNIT-1 drive fii 
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BY DALE 


PROC Restart() ;stub to rerun the preg 


d tid ; 
UTZ 
LUI à 
BCOMMBodirection iset fer read or 
ite 
IF mede-doukle THES 
HUMBYTES=$iae 


D3TáTs-daublerode either $4a far 


;write, or $88 for read 
SID TI ;90 do it 
ELSE 
BSKINU(CGO ;30 dp it 
FI 
IF OS7ATSC}4 THEN 
MuErrort 
FT 
RETURH 


PROC Initspeak {3 
BYTE p 


p-pacti 
Parti-p-4 
pdat-177 
pacti-p 
RETURN 


PROC 5ag(BTTE ARRAY word: 
BYTE a 


a-B 

WHILE wordiai<3755 bn 
WHILE pdat?i28 Be op 
Pdat-wordta?t64 
Pdat-wordtaà 
azz+ėi 

np 

RETURN 


PROC DelautBYTE ARRAY word) 
CARD a 

FOR azi TO 18880 pü OD 
RETURN 


PROC CheckSpeak ( 


BYTE clock-28 Pihis procedure 


sfhecks that a 
Pdat-4*64 ispeech synth is 
Pdat-4 jiheoked up... 
cIork-8 


WHILE pdat?128 po 
IF clack} 3 THES 
Say Belay 
RETURN 


XE CONT 


FI 
OD 
RETURN 


PROC WaitForPress @ 


Graphics tis} 
PutbF (63 
PrintDEr5," 
PrintBE t6,"' 
PrintBe t,” 
PutbE (5) 
PutbE (63 
PrintbE:Z6,"“ 
Consoi 8 
IF direrctinn-Read THEN 
Saytinsert) 
Say fsource} 
Say (disk) 
ELSE 
Positiontz,2) 
PrintPb(6," DESTIKATIQN') 
FI 
HHILE consoI-? 60 
flasher--t*i 
OB 


insert’) 
SOURCE”? 
DISK”) 


press ELIP 


RETURN 
PROC Changebensitut) 


Position¢(i@,ii} 

IF mode-single THEN 
Print® (6, “ROUBLE 
Mode-double 
grapher-28 

ELSE 
mode-single 
Printi, "SINGLE 
grapher-48 

FI 

reaimode-mode 

WHILE conso! O7 AND consolQ8 P0 
consol-8 

gp 

RETURN 


PROC Bankthange (3 
BYTE selector-54817,norMal 
norsal-i28464*2*1 


;base on which to 


;add the bank sele 


ct. PrintbE(6," write it out 
; values PutbF (653 
IF bank-5 THEN PrintbE(6," SELEC THS 
selector-255 PrintDE (5," exit' 
ELSE 5autinsert) 
selector-normalt8WibthankK4 Say idest} 
FI Say {disk} 
RETURN PutDE (61 
WHILE cansolO start ANG consoli? s 
PROC ReadündWritet elect pü 
flasher--*i 
;first read the thing in OD 
direction-Read IF consol-start THEN 
doublecode-*48 WaitForPresst) 
pü ELSE EXIT 
bank-5 LI 
BankChange (3 DD jend of ínearly? infinite loop 
Set5creent? RETURN 


buftop-menmtop 


DBIIFFER-codetop 


PROC CopyPDiskt( 


FOR 5ECTüR-secbegin TO secend 60 


WaitForPresst 
IF mode-double THEN 


IF realmoade-double THEN 
IF sectorí4 THEN 


MOode-singie serbegin-i secend-ib8 
ELSE ReadündMWrite t) 
mode-douhle direction-Read 
FI WaitForPress {3 
FI secbegin-i61 serend-728 
Handlesector 0 ReadündMr ite t) 
IF (SECTOR MOD grapherj-8 THEN ELSE 
IF direction-read THEN sectbegin-i secend-728 
PutP (5,'R) ReadündHritet) 
ELSE FI 
PutbD(5,'H) RETURN 
FI 


FI PROC SystemCheck (1 
DRIIFFER-PBHFFERt128Xpmode 
IF PBHFFERD tbuftop-257) THEN 


IF bank-s THEN 


BYTE testinr-ib5i85,flag,num 


bank-8 flag-ü 
EL5E testloc-22 
bank--*i bank-Z 
FI BankChange (3 
BankChange t) testioc-33 
PBUFFER-16384 bank-$ 
buftop-32757 BankChange (1 
FT IF testioc<}22 THEN 
BD ;end of FOR Printé¢™ Unable to Bank Switch 
direction-write ; now set up for ...' 
doublecode-$88  ; writing it out. flag-i 
consols FI 
Graphics {183 FOR num-i Tü 55 bü 
PutbE(6) Poke ($0804, num) 
PrintbE(5,” STAR Tae IF Peek {$0864} (O num THEN 


PrintE(" Cartridge Present.. 


XE CON'T KANGA CON'T 





dis 1125 FOR H-1 TO i5@:SQUND 8.,16,18:NE L245 BATA 48,48,128,:3,59,62,98,745 
flagzi vr WiSOUMD 8,8,8,8 1156 BATA Ë 
num=65 1iz8 RETURN 1Z55 BATA 288,248,158,224,54,132,128,1 
FI 1115 REM DRT aa we 28 
ap 1148 RESTORE 1198 izee gata / 
IF flag-i THER 1145 MEMTOP-PEEK (196) :GRTÜP-MEMIUP-4  — 1285 DATA @,127,127,127,427, 127,427.12 
Printet" Program aborted") jisa POKE i186,GRTOP:GRAPHICS i+i6:cHRa 7 
M-PEEK(7561#256 1178 DATA . 
pO Ub Jinfinite lpop 1155 DIM A(8),R5(1 1375 DATA 0,254,254,254,284, 254,254, 25 
FI 1158 CHRAM-GRTOPXZ56:PÜKE 756,GRTOP á 
RETURN ;integrity test over... 1155 FOR N-8 TO 182Z:POKE CHRAMEM, PEEK 1288 DATA - 
(CHROME) NENT M LIES DATA 8,255,255,255,255,255.255,25 
PROC Copier @ 1178 FOR K-1 Tü FO:READ RS:R-ASC(RS32 — 5 
1175 IF R(I2 THEN R=R+64 1138 DATA + 
Goback-Handlesector 1188 IF R(36 THEN IF R)Zi THEN R-R-12 1395 DATA 255,255,255, 295,755, 250.255, 
Restart-Copier 1185 FOR I-8 TO 7:REAS A:AtTI=A:R=TtRe 255 
Initspeak O B4256XGRTOP:POKE B,A:NEKT I:NEXT K 1488 DATA 7 
Poke (580,3) ;set it up so that ii98 DATA ! 1485 BATA B,15,15,15,15,15, 15, 15 
Check5peaki) ;reset will reboot 1135 DATA 178,254,85,252,171,251,87,24 1418 DATA : 
bank=s 7 1415 BATA 224,224,288,288,175,176,38,1 
Bankchange t) 1288 DATA f 12 
dena eter E 1205 DATA 175,219,95,223,131,191,127,1 1428 DATA Z 
SysteMCheck() j;verify correct system 97 1425 BATA 255,125,185, 165, 185,189,179, 
d 1218 DATA < 255 
say (intro) 1215 BATA 10,15,21,11,42,62,05,127 14:8 DATA ¥ 
say (name) 1220 DATA > i4Z5 BATA Z8,152,428.30.,S0,129,25, 108 
po 1225 DATA 178,254,84,252,168,252,85,25 1448 DATO K 
bank=5 1 1445 DATA 218,225,248,252,218,2:8,B,€ 
BankChange ti 12:8 BATA Z 1458 BATA B 
Poke (186,192) 1215 BATA 170,255,85,255,170.255,85,25 1455 BATA 8,124.6, 125,258. 127,3, 8 
mode=single 5 i488 DATA M 
realmode=mode 1249 DATE Š 1455 DATA 9,252,235, 278,228, 239,4,8 
direc tion=Read 1245 DATA 8,254,253,252,251,251,247,24 1478 DATA G 
Graphics tis) ; 1475 DATA 8,127,228,23@,126,6,228, 124 
grapher-48 1258 DATA Z 1488 BATA VU 
consol-8 1255 DATA 233,219,221,223,131,191,127, 1485 DATA 132,16,96,151,152,55,35,193 
PrintDE(5," single pass") 127 1438 RETURN | 
PrintDE(BO," id i Sk! mIXU0 1268 DATA ; At ELE ET EEN 
PrintbE(6," — FOR 1ZƏ88E '") 1265 BOTA 8,8,1,1,2, 2,5,7 RUTH'S LOGO 
Prin BY ee 1270 ara & FROM LAST MONTH 
PrintbE(5," daie iutz ") i275 DATA 8,8,1,1,2,2,7,7 
put5F (51 1288 BATA ' Tü PRINTOUT 
PrintbE(G," STAR Tag 1285 BATA 254,254,251,251,251,251,246, PRINT [TYPE THE TITLE 
PrintbE(5," begin copying’) 247 MAKE “TITLE RL 
PrintbE(5," SELEC Té 1238 PATA} SETHRITE "P: 
PrintDE(6," change density") 1235 DATA 15,15,21,:1,82,62,127,127 PR :TITLE 
PutbE (6) 1z88 BATA ( veux 
PrintDE(C6,"DENSITY: SINGLE”) 1385 DATA 237,219,218,222,188,188,104, SETHRITE D 
00 "s PRINT [TYPE YOUR NAME AND THE DATEI 
flasher--*i SNE ree MAKE "NAHE RL 
IF conselzselect THEN 1315 BATA 76,49,1Z0,154,83,65,.148,58 SETHRITE "P: 
Changebensz tut) 1128 DATA Y PR : NAHE 
FI : {325 DATA 147,155.15,89,154,:5,17,201 F H 
UNTIL consol=start 2p 1338 PATA F SETWRITE I] 
CopyDiskO 13:5 PATA 32,32,96,96,224,224,32,32 PRINT ITYPE THE NAME OF THE PROCEDURE] 
of 1148 BATA O 
RETURN MAKE “PRO RL 


SETERITE "P: 

7 pn ;ppo 
SETHBITE E1 
ENG 


; ROMS ANG COLUMNS 
z 7-85 
; 5. DCKERS 


BYTE 
BYTE 
BYTE 
i} 
TYPE REAL-(CARD ri,r2,rzil 

; Ë few routines from REAL. ACT 
; On the Programmers aid disk 


REAL 
BYTE 
CARD 
BYTE 


Fra-5Pb4, Fri-$E8 
ARRAY LBuff-$588 
InBuff-$Fz 
Cix-$F2 


ROM_AFP=—38889 1) 
ROM_FASC—SDSE6 0 
ROM FADb=55065 03 


PROC 
PROC 
PROC 


PROC 
b.riza.ri b.r2-a.r2 b.ri-a.r3 
RETURN 


PROG VaIRCRYTE ARRAY s REAL POINTER r3 


BYTE i 

FOR i-i to $8} 60 
L8Byuffí1-i1-síi] 

GD 


RealAssigntREAL POINTER a, bi 


ROWS AND COLUMNS 


PROC Realüdd(REAL POINTER a,b,c) 
Realássign(a,Fr8) RealAssigntb, Fri} 
RüM FADDO Reəlássign(Fr8,c) 

RETURN 


X,9,nr0W,cOol,startx,starty,cnt 
mMaxx,maxy,moufig,nModeflg,errftlg 
ARRAY strzt88883,buff (18), binks (4 


PROC Init(3 ; Fill array with — cells 
CARD pos,size 
Setblocki(bInks,41,168) binks {93-48 
size-8888 SetBlock(strs,5ize,351 pos-s 
trs 
WHILE posístrstsize DO 

Pokeí(pos,2) Pos--tiB 
nb 
startx-8 startu-8 maxx-@ maxy-8 
X-startx y-starty Open ti,"K:",4,8) 
modefig-8 Put(125) errflig-ü 
RETURN 


PROC Binkline(] ;Inverse blank line 
Position(8,8) Print (binks3 
Positionté, 8) 

RETURN 


CARP FUNC 5tringpost) ;Find position 
CARD pes sof cell in strs array 
pos-ise#ytiaxx 

RETURN (oos? 


PROC RowrolO "Mach screen position? 
row-2X(y-starty3*Z col-i8X(x-startx) 
RETURN 


iBuffii-1)-8 InBuff-LBuff Cix-8 


ROM AFP RealüssigntFr8,r1 
RETURN 


PROC StrRCREAL POINTER r BYTE ARRAY s) 


BYTE i,t 
BYTE POINTER ptr 


RealaAssignir, Fra} ROM FASCO ptr-LEu 


ff 
WHILE pir^-'8 po 
BPIrz-241 
GP 
KI 
50 
tzptr(1) 42241 s)-cES7F 
UNTIL c&$28 
ap 
si-i 
RETURN 


PROC Prtstring() ;Put cell on screen 
CARP loc 
lec=strstitringpost) Rowcel 0 
Positionicol,row) PrintíIoci 
RETURN 


PROC Fillscr€) :Fill screen with cells 


BYTE savx,savg,nbr 

CARD ioc 

Blnklinet] savx-x savy-y 

IF wodeflg-8 THEN Printi Row Entry''? 

ELSE Printi column Entry} 

FI 

Savx-x savy-y 

FOR y-starty TO starty*i8 D0 
IF u>43 THEN EXIT FI 
FOR x-startx TH startxti DO 

IF x?15 THEN EXIT FI 
Prtstringd) 
Op 


8 


ob 

yzi nbr-startx*i 

FOR x-5 TO 35 STEP 18 60 
Position(x,y) PrintB(ünbr) Print(" "') 


nbr--*i 
op 
X-savx y-savy PrtstringG 
RETURN 


PROC Prevurow 
IF y)8 THEN 
(Ewéi 
IF u(starty THEN  ;screen may move 
startyu-y movflg-i 
FI 
FI 
RETURN 


;Move to previeus row 
;if not at first 


PROC NxiroawG 

IF y{49 THEN 
yorti 
IF y-starty)1@ THEM 

starty--*i mwouflg-i 

FI 

FI 

RETURN 


;Hove to next row 


PROC PreuvcolQO ;Move to previous colum 
n 
IF x}@ THEN 

== 

IF x<startx THEN 

startx-x movfig-i 

FI 
FI 
RETURN 


PROC Nxtcol() ;Moue to next column 
YF x(15 THEN 

xzztłi 

IF ¢x-startx}}3 THEN 

startx==+i mouflg-i 

FI 
FI 
RETURN 


PROC Fillbuffi) Put cell in buffer 

CARP pos | 
pos=strs+*stringposil 
MoveBlock(buff.pos,18) 

RETURN 


PROC InvbUff() Invert all characters 





BY STAN OCKERS 


BYTE i 
FOR i-i TO 3 P0 
buff(i)y--! 128 
pp 
RETURN 


PROC Shftbuff() ;One space left 

BYTE i 

FOR izi TO Buffit8) DO 
buff(1B-il-buff(buff(0)+1-i) 

op . 

FOR i-i TO 3-buff(0) DQ 
huff(cil-:2 ;Pad with blanks 

op 

bufft8)-2 

RETURN 


"Make it full size 


PROC Addit(O Insert buff in strs 
SARD pos 
pos-strst5tringpos( 
HoveB8locktpos, buff, 18) 
RETURN 


PROC Shiftin(BYTE chr? :füdd chr to buf 
f 
BYTE i 
FOR i-i TO 8 DQ 
buffiil-buff(i*l) 
np 
buff(3)-chr 


RETURN 


icoMPS in from right 


PROC Makedol(BYTE cnt) ;Put in dollars 
BYTE i 
ize pO iz=ti 
IF buff(ilzd6 THEM EXIT FI 
UNTIL izcnttt 
ap 
IF izcnt#i THEN 
Shiftint46) Shiftint4B) Shiftint4 
8) i 
ELSEIF i-cnt THEN 
Shiftin(48) Shiftin(48] 
ELSEIF i-cnt-i THEN 
Shiftin(48) 
FI 
RETURN 


prac Entrchr (BYTE chr} ;Put character 
BYTE i inte buffer and display 
Shiftintchr) Position(col,rowi 
Print(buff} cnt--*i 
IF x}maxx THEN maxx-x FI 


IF ymaxy THEM maxy-y FI 
RETURN 


PROC 
REAL 


Caladd{} ;&dd up a column 
sum, addend 
BYTE savX,sauu 
RYTE ARRAY rero 
Zero" 
Sau Sayvyry 
FOR y-8 TO maxy DO 
vaiftzerc, Sum 
np x-8 Tü maxx PO 
WalRizere, addend) 
FilibuffG 
If buff(il-iEB THEN 
strpísum,buff) Shftbuff O 
Makedal fbuff tai} 
Tnubuff() bufff{i}-i88 addi tO 
ELSEIF buff{ii-222 THEN 
ELSE 
UalRtbu£f.addend) 
Realüddisum,addend,sum? 
FI 
Di 
uu 
X-saux y-sauv 
RETHRN 


PROC 
RESL 


Rowaddt) :fdd up a rOW 

sum, addend 

BYTE savx,savy 

RYTE ARRAY zere 

zero "a" 

Saux-x savu-u 

FOR zë TO maxx Du 
UaslR(zero,sum) 
FOR up TÜ maxy 02 

Yalktzero, addend} 

rFillbuffil | 

IF buff(11-222 "HEN 
strpr(sumw,buffl Shfibuff( 
Makedcol(burft83) 
Invbuffd) bufftil-227 

FiSEIF buff(i)-iE8 THEN 
buff(11-168 Invbuff 
gaih(hufíf,addend) 
RealAddisum, addend, sum} 

ELSE 
UalR(buff,addend) 
Dealüddisum,addend,zum? 

FI 


GS 


Addit} 


na 


ü 
X-5aUxX y-saug 


9 


RETURN 


Farce (CARD cnt} ;Belay far messes 


SYTE t 


FOR i-i to cnt DO t--*t OF 


PROC Siskerr (BYTE arprode: ;Error trep 


BInkiinreii 

IF errrtode-i178 THES 
PrintiUNo file of that name"! 

ELSEIF errrode-i38 THEN 
Prpint('Check disk drive" 

ELSEIF errcode-iiàd THEN 
Prpintf'"Specifg ‘B:' in filename’? 

ELSEIF errcode-i65 THER 
print£"Bad filename") 

Est PrintBterrcodel 

FI 

Sauce (14888) 

errrl]a-i Closet?) 

RETUBS 


uu 


PROC Loadsave(BYTE mode} :Disk I^ 
BYTE i 
Copn start,pos.temperr 
EYTE ARRAY filenm(38) 
BYTE ARRAY temptibz)l 
temperr-Error Error-Piskerr 
temptüJ-168 start-tesmp*ti 
Rinklineil 
Ppinti"Filename?"? Inputs(filenm) 
Opentz, filens, mode, Ei 
IF errfig-i THEN errfig-à RETURM FT 
IF mode-4 THEN 
waxx-InputBb (23 maxuy-Input&kt (7! 
ELSEIF mode-8 THES 
printEDEIQ2,Maxx] PrintBDE(2,maxu! 
FT 
FOR i-8 Tü many Du 
pos=strst Cisse} 
IF mode—4 THER 
Inputs (2, temp) 
Heveblock (pos, start, 158: 
ELSEIF mode-& THEN 
Moveblocik (start, ees. i168? 
PrintbE (2, tempi 
FI 
at 
Ciose(23 Error-temperr 
RETURN 


PR 
Bl 
IF 


EL 
FI 
Pa 
er 
RE 


PR 
BY 
BY 


CA 
te 
Er 
sa 


IF 
EL 
FI 
ce 
bl 
Op 
IF 
Fa 


Gf 
IF 


ROWS CONT 


Of Prterr {BYTE errcode} 
nklinetl 

errrcode-i:8 THEN 
Print("Check Printer”) 
5E PrintBferrcode} 


;Errer trap 


use (18888) 
rfis-i Close {zt 
TURN 


OZ Prnt() ;Put it cut te printer 
TE twopage,columns,savex,sauey 
TE ARRAY celms-[8 12 Z 45 5 7 
4455657 71 

TE ARRAY spcing-f86 54 22 1 B 
š š Z 2 Y t g 

TE ARRAY binks-[i 32 32 32 32 32 
32 32 321 

RD temperr 

mperr-Error 

ror-Prterr 

Vex-x Saveyry 


MaXx(8 THEN twopage-@ 
SE twopage-i 


Tusns—colms {maxx} 
nkstü&l-spcingimaxx? 
entz,"P:",8,83 
errfig-i THEN errfig-8 RETURM FI 
R y-8 Tü maxy 60 
FOR x-8 to coiuans PD 
Fillbuff(3 IF bufftt112128 THEM 
Invbufft) buff(1)J-12 


FI 
Printbii,burffl 
Prinibiti,blnks) 

9 
Putbts,11) 


nar 


twepage-i THEN 
PUIG, 133 PutP(t5,1:) Puftb (3,13) 
FOR y-8 TÜ maxu DD 
FOR x-columnsti TO maxx 09 
Fillbufft)] IF buff(t112128 THEN 
Invbuffil bufft1)-:7 


E 
pBripth(š,buffi 
PrintO ct, binks3 

np 
PutP (1,11: 
OG 


Putb(s3,1:) PutD(2,13) Puti, iz} 
FI 
Clase (3) 
X-savex yrosavey 
RETURN 


PROC Select() ;Menu choices 
BYTE chr,casesaue 

Positionít8,D) casesaye-Paeekí7821 
Poke (782,541 


Printt"[laic Grint Have Moad iode Gye 


BG  chr-GetP(t1) 

IF rhr=57 THEN 
Coladdi) Rowaddt) 
EXIT 

ELSEIF chr-@8 THEN 
Prnt() EXIT 

ELSEIF chr-?6 THES 
Loadsaue (4) EXIT 

ELSEIF chr-82 THEN 
Lüadsaue (8) EXIT 

ELSEIF chr-77 THEN 
IF modeflg-@ THEN sodefig-1i 
ELSE modefig-a 
FI EXIT 

FI 

UMTIL chr-27 
Op 


Fillscrí) Prtstringt) Poket782,casesayv 


ei 
RETURN 


PROC Main( 
BYTE nflg,chr,i,curfig,conkey 
CARD pos 
Init() Fiilscrt) 
bD 
nflg-8 cnt-ií buff Gj=9 curf1g-8 
movfla-@ Filibuff ft) 
Pozitionícol,row) Printtbuff) 
FOR i-i TO 3 DE 
bufftil-I2 OD 
Du chr-&etDt1) 
IF chr-27 THEN Selert() 
ELSEIF chr-i125 THEM 
IF cntdi THEN 
FOR i-@ TO 7 DD 
buff(3-i)-bufftB8-1) 
Op 
buffí1)-32 Positionicol,row) 
PrinttbuffJ cnt---1 
FE 
FiSEIF chr-4Z THEN 


IF modefig-@ THEN hufftiJ-68 
ELSE 5ufft11-934 
FI 
IF x)Maxx THEN mMaxx-x FI 
IF yomaxy THEN mMaxu-u FI 
Invbufft) ñddit(1 Prtstringi? 
EXIT 
FLSEIF chr-28 THEN 
curfig-i Preyrowt} EXIT 
ELSEIF chr-23 THEN 
turfig-i Nxtrowt? EXIT 
ELSEIF chr-zx8 THEM 
turfig-i Preucol(J EXIT 
ELSEIF chr-3i THEN 
curfig-i Nxtrolí? EXIT 
ELSEIF chr-58 THEN 
CR startx-8 curflig-i 
Fillscrt£) EHIT 
ELSEIF chr-62 THEN 
X-Maxx startx-Maxx-3 curflg-i 
Fillstr(3) EXIT 
ELSEIF chr-34 THEN 
VH starty-e curfig-i 
Fillstr() EXIT 
ELSEIF cnt(i18 AND (chr)47 AND chr 


së OR 


thr-45 OR chr-46) THEN 
IF cnt-i then nfis-i 
FT 
Entrchr tchr1 
ELSEIF cntéíiB AND nfig-8 ANB 
(chr)zi AMD chr(i231) THEN 
Entrchr (Chr? 
FI 
UNTIL chr-155 
05 
IF cnt}i AND curfig-8 THEN 
If nflg-i1 THEN Makedclibut*f(a333 FI 


&ddit(3 IF modeflg-8 THEN NxtcolQ 


ELSE Nxtrowt) 
FI 
ELSEIF curfig-8 THEN 
IF modefilg-@ THEN HWxtcollQ 
ELSE Nxtrowt(] 
FI 
FI 
IF müuflg-1 THEN 
Fillscr() 
ELSE 
Prtstringi? 
FI 


ep 
PETURN 
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REH gece ze? 
REM z KANGA * 
REM X by ALLAN KNOPP * 
REM koi LLLI D * 


REM * PAGE 5 MAGAZINE - ENGLAND * 

REM RON ee EEN EN 

SEN 

188 GOSUB 1895 

S 60508 1135:G05U8 365 

li8 POKE 718,36:PÜKE 788,278: POKE 789,5 

6 

115 7Z-12:60Tn 128 

i28 REM IP UBI 

125 REM 

139 RESTORE 455 

1:5 DIM M8$(621,HM1$ (5631,H25 16), N25 £63 , C5 
(32) 

i148 BIH PMMOQUSITLBBI,PBS CIB) , PIS ET83,P2 
SCIBY,PIS C(IB),PFS (C82, MISMOUS £114) : MOY 
E-APB(PMMOUSI:FUR Ki TO i8B:READ E 
145 PHMQUSIX)-CHRO (NJ :NEMT K 
iSB REM 
i55 FOR KI TO 12:READ N:PBS(M) 
1:NEKT X 

168 FOR H-i TO 12:REÀAD N:P15$(CH)-CHRS (H 
J:NEKT X 

i65 FOR K-1 TO 12:REÀD N:P252(MI1-CHRS(N 
):NEXT X 

i78 FOR K-1 TO 2:READ N: P25 CHI —=CHRS CN} 
NERT K 

175 FOR M-i TO i12:REàPb N:PFSIHI-CHRES(CN 
2:HEXT K 

i88 PMBASE-INT(UPEEECIAS) 422/43 €4 : POKE 
542779, PMBASE: REM 

185 PMB-PMRASE#Z56 

i98 PMR-ABR (PAS) 

i95 PML-ADR(P1$3 

288 PMP-ADR(P25) 

285 PMS-ADRIPZIS):REM 
218 PMF-ñ0DR(PF32 

215 POKE 559,46:PQKE 53277,3:REM SR 

DMA 

228 POKE 784,14:POKE 787,2:POKE §23,i 
225 GOSUB 655S:TRñP 658 

218 REM 

235 GOSUB 965 

248 POKE 711,56:60T0 738 

245 L-1:5C-1:CC-246:6050B 835 

258 K-8:TIM-38B 

255 SOUND 2,248,18,2:500ND 3,243,18,2 
268 POSITION 8,2:? HG; ER ":SC:POSIT 
TON 8,4:? Ho; "fia" 

268 K-188:Y-94:PMM-PMD:G05HUB8 458 

278 REH 

275 POSITION 5,22:FOR R-1 TO 1:7 HE;"F 
"PIHEHT R:POKE 5:278,1 


"d Eë GI s God fS Fa 


bebe 
Ru 
Ul 


=CHRS (N 


BY ALLAN KNAPP 


288 POSITION 5,23:FOR R-1 TO L:? H6;”q4 |.282,112,287, 


"3 NEKT R 
285 REM TATER] 
298 S-5TICK(80) 
235 TIM-TIM-2:POSITION 1.5; 
"Ir TIMÁB THEN GOTO 545 
i88 IF PEEK(OI279)-1 THEN GO0SUR 815:66 
TO 738 
i85 IF S-1i THEN H-E-4:PMM-PML:IF Kíd48 
THEM X-48:65051B 458 
318 IF 5-14 THEN Y-Y-2:W-Kt2:PMHM-PMD:I 
F M3192 THEM X-122:60508 458 
i15 IF 5-7 THEN N-Mt4:;PMM-PMR;IF 35132 
THEN H-i92:GQ5U8 458 
328 IF.5-13 THEN Y-Y142:N-H-2:PMM-PHMF:TI 
F HAG THEN K-48:650518 458 
325 IF 4448 THEN H-48 
Jz IF M52088 THEN 4-288 
25 GN-(H-483/8:GY-(Y-1653/4: IF GY)28 T 
HEN 6Y-28 
340 IF Y2>94 THEN Y-94 
245 POKE 711,Z:PQKE 77,8 
i58 LOCATE GEL, GYtZ,CiLOCATE &X,GYti. 
DP LOCATE GM,GYt2,E 
355 CC-CCH1:IF CC>743 THEN CC-246 
i68 COLOR CC:PLOT 12,12 
i65 IF D-258 THEN GOTO 865 
i178 IF bit QR Dí48 THER Y-Y- 
98: Y-Y*2;605UB 458 
375 IF D)58 AND 2462 THEN Y-Yt4:N-M*2: 
GOSU8 458 
188 IF 0348 THEN Y-Y:2:605UB 458 
i85 IF D4Z3 AND ECSI THEM GOSHB 515 
338 IF D433 THEM GOSUB 515 
395 IF E422 THEN GOSUB 515 
488 IF CAII THEN GOSUB 515 
485 IF D52245 AND Dí249 THEN GOSUB 825 
$i IF 6-98 AND KI THEN TIM-TIM*iB8:G6 
010 7:8 
415 IF ¥<2@ THEN Y-28 
428 IF RWD(8))80.929 THEN GOSU8 968 
425 Z-Ptib:IF 23255 THEN 2-12 
438. CC-CCCt1:IF CC)249 THEN CC-246 
425 COLOR CC:PLOT 12,12 
440 MSL-MSLt1:IF M51?18 THEN GOSUB 558 


? H5; TIM;" 


Z:GB308 4 


445 GUTO 285 

458 A-USRIMQUE,G,PMB,PMM.E. Y,11) : A-USR 
CHOVE, Z,PMB,PMS,Nt2,Y*2,71 

455 FOR W-38 TO 88 STEP 18:501NP 1,4,1 
8.18:NEXET HW:50UND 1,8,8,B:RETURN 

460 REM 

455 BATA Z16,104,104,184,1ZZ,21Z,184,2 
1,185,2,131,2806,184,113,205,184,111,28 
4,184,1::,283,184,184,11:1,2808 

478 PATA 104,184,1:1:,282,104,184,74,10 
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155,715,2439,15,165,285,7 
1,185,128,112,205,165,78656,185 
475 DATA 8,1:2,285,287,2803,248,168.8.: 
62,8,196,299,144,19,196,2787,176,15,i37 
Pe ae DER EE 203 ESA 
ARE BATA 212,145,2805,232,162,8,2480,4,1 
£3,8,145,2B85,288,132,1785,28£,224,155,.7 
1:,155,288,157,8,708,.325 

H ASER SHOPE: BOT a 

438 DATA 4,6,7,4,12,38,155,124, 15, 31, c 
,8 
435 DATA 32,95,2241,322;48,129.53,62,8,2 
4%,6,8 
$88 BATA 12,14,8,13,38,28,28,51, 18,36, 
54,128 


985 PATA 62,174 


518 DATA 24,55,8,24,28,5 1,8, 
72,8 

215 FOKE 62:,4:FDR Y-Y TO 188:50HNP n, 
Y,18,18:Y-718.5:6051B. 458:50HND 8,8.8, 
8:NEKT Y 

528 L-L-1:IF L4i THEM GOTO 545 
925 POSITION 5,2217 Ha;" 

TION 5,2::? Hb;" i 

9418 POSITION 5,22:F0R R-1 TO 1:7 He; ¢ 
"IIHEMT RIPOKE 53278,1 

S35 POSITION 5,23:F0R RTA TO 1:7 H6;:74 
"s NERT R 

o4@ K-188:Y-28:PDKE 673, 2: RETURN 

345 TIM-@:G605U8 Bib5;nnTO 728 


"o 
bh 
EN 
Pao 
rw 
jd 
em 


"PAST 





258 POKE 53257, B:IPHKE 53278,1 
bB HMPCMMPTI:GN EMP GOSUR 928,625,629 
7635, 648,645,658.655 
365 FOR KMKM TO 225 STEP 18:605UB 278 
NENT MH:MSLZBR:SDUND 1,8,8,8:8ETURR 
578 A-HSR(IONISL,1,PMB.ADRIMIST KM, YH, 63 
:S0HND 1,XH/8,18,14: TF PEEK(S3257) O1 
THEM RETIIRH 
275 SOUND 1,8.0,8:0-HSRCMISL, 1, PMB, ADR 
(Mi$), 225, YM. 5) 
Spe FOR HOTA TO S:FOR MM-8 Ta 4:50UND 
8, 12,58, 18: 4-IISR (MOVE, B, PMB, PNM, 186,94 
,111:0HN HM 650508 688,585,518,615 
285 FOR WO-1 Tü I:FOR MM-B TO 4:50UMD 
2,398,189: A-U5R (MOVE, B, PMB, PHM E, Y. 11 
1:0N HW GÜSHB B88,5805,518,515 
538 REM MLOWE 
532 MENT HH:50HND 8,8,8,8:BEXT WR SPOKE 
S1257,8;:POKE 51278,1:5,05HB 528:60T70 7 
i5 
ERG PMM-PMR:RETERN 
25 PHM-PHD:RETURN 
£12 PMM-PMR:RETURN 
S15 PMM-PMF:RETIRN 
628 X4M-55:YM-8B:RETIRN 


KANGA CON'T 


XM-64; YN-88 :; RETURN 

WH-72:YM-72: RETURN 
XH-88: YM-b4 : RETURN 
KH-88;YM-56 : RETURN 

KH-35: YM-48 : RETURN 
XN-184; YH-4B RETURN 
XM-112: YM- 12: KMP-B: RETURN 

668 TRAP 48888;POKE 532257,8:POKE 53278 
,i:G0T0 285 

665 REM 

578 RESTORE 525 

675 HISL-ADR(CMISMQUS):F0R M-1 TO 114:R 
EAD H:MISMOUSIRI-CHRS(N3:NEET X 

688 REM 

E85 FÜR I-1 TO 5:READ N:MISCIT-CHRS CH 
sHEKT I 

698 POKE 785,155;POKE 51268,12 

535 DATA 216,184,184,184,131,213,184,1 
13,2856,104,24,185,128,131,285,105,285, 
185,1,1:3,286,184,133,204, 184 

788 DATA 12:,2807,184,184,1:3,288,184,1 
84,1:3,202,184,1804,24,101,283,131,287, 
168,8,1627,8,134,212,169,252 

785 BATA 155,213,248,7,18,18,9,3,282,2 
88,249,1606,212,43,285,145,285,195,282, 
144,38,196,287,175,2b 

718 BATA 1:2,212,118,168,177,283,164,2 
13,248,5,18,18,136,288,251,164,212,17, 
285,145,285, 232,169,8,249 

715 BATA 8,288,122,1728,288,136,156,213 
,165,288,157,4,288,96 

728 BATA 8,8,:,0,8,8 

729 RETURN 

738 GOSUB 965 

735 POSITION B,2:? tib;"score" 

748 POSITION 8,1:? H5;STIM 

745 IF 5TIMMHSC THEN H5C=STIM 

758 POSITION 8,5:7 H6;"HI ":POSITION 8 
26:7 H6;H5C 

755 POSITION 4,21:? H5; "EERE 
758 SOUND 8,248,18,18:50UND 1,243,18,1 
8 
765 
778 
775 


CC-246 

CC-CCti:IF CC2249. THEN CC-246 
COLOR CCIPLOT 13,12 

FOR H-1 TOU 18:HEXT H 

Z-Z*ib:IF 222585 THEN Z-12 

PDKE 711,7 

IF PEEK(53273)2 6 THEN 778 

POKE 718,315:POKE 788,38:5TIM-8 
SOUND 8,8,8,80:500ND 1,8,0,8 

818 GOSUB B15:GDSUB 965:PQKE 622,1:50T 
0 245 

815 FOR M-8 TO 13;:COLOR IZ:PLOT W,6:02 
AHTO M,Z2I:NEEMT H: RETURN 


KT H:50UND 1,8,8,0:K-1:RETURM 

825 ON SC GOSUB 840,848,845,850,855, 84 
E. 

818 FOR HM-1 TO 3:FOR Wei TO 15:501ND 
1,4*2,18,18:NEXT H:NEMT HW:RETIRN 

835 POSITION 6,17:? #6;"S+'": POSITION 
6,18:7 #6;”)+(":RETURN 

848 POSITION 12,8:7 #6;"S4'": POSITION 
12,9:7 M5; ") CU: RETURN 

845 POSITION 11,5:? t6;"$4'":POSITION 
11,6:? H5;")*(" RETURN 

858 POSITION 7,18:? gënt &":POSITION 
7,11:? Hb;"QB ?":PÜSITION 6,17:7 #6;" 
$4'":pOSITION 6,18:7 15;") 4 (" 

855 POSITION 11,5:? #6;"$4'": POSITION 
11,6:? H5; ")*(U : RETURN 

868 GOSUB 815:G05UB 965:G05UB 318:P05I 
TION 6,23:7 Ho; rf :60518 935:G0T 
0 735 

865 5C=5C+1:0M SC GOSUR 875,888,885,89 
8,835,988,385:5TIM-STIM*TIM:L-LH1:TIM- 
TIM#758:G05UB 815:G0SHB 965 

878 FOR 5-159 TO i STEP -2:50UND 1,5,1 
8,18:MEXT 5:60T0 258 

875 REM 

888 POKE 718,54:PÜKE 788,56:RETIRM 

885 POKE 718,182:P0KE 788,184:RETURN 
898 POKE 718,112:POKE 788,134:RETURM 
895 POKE 718,154:POKE 788,166:RETURN 
388 POKE 718,228:POKE 788,212:RETURN 
385 GOTO 868 

318 REM 

315 RESTORE 328:F0R Szi TO 54:READ T:5 
OUND 2,T,18,8:FÜ0R Wei TO iB:NERT M:NEH 
T S:RETURN 

328 DATA 121,121,96,121,121,152,121,12 
1,96,121,121,152,121,121,188 

325 DATA 95,188,121,128,128,121,188,12 
8,162,121,121,95,121,121,162 

318 DATA 121,121,96,121,121,162,121,18 
8,95,188,188,95,121,121,121,121,121,12 

1,8,8,8,0,0,8 | 

935 SOUND 1,232,14,14:501ND 2,238,14,1 
4:50UMD 2,211,14,18:500ND 8,228,14,14 
348 RESTORE 958:F0R Izi TO 32:READ C:C 
$ (1) =CHRS(C) NEXT I:05(15,15)-CHR5 C22) 
: K-USR CADR ICS}, 183 

345 FOR 5-8 TO F:50UND 5,0,8,8:NEXT 5 
358 BATA 184,184,184,72,162,57,160,8,1 
72,80,218,181,20,141,22,288, 141, 18,217, 
115,288,242,282,288,237,184 

355 DATA 55,211,1,288,228,36 

969 XMP-RHD(8)X6:6051]B 558:RETURN 

365 REM 


378 POSITION 8,0:2? H6; PTE — IESSE 


828 FOR Moi TO 1:50UND 1,4X18,18,10;MF tte nh 
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375 POSITION 8,1:7 Hb5;" yv 


FEE 

388 POSITION 8,2:? H6;" 

Sp, 

385 POSITION 8,3:7 H6;" 

SS 

398 POSITION @,4:7 #6;" 

gtin 

395 POSITION 8,5:7 H6;" 
tHg 

1888 POSITION 0,6:? H6;" 
Mu 

1805 POSITION 
++ (C! 
i818 
//g" 
1815 
1828 


Ht E 46 
(ARRA 
1Yi+++++; 
{='/ 7/78 
2 E+E 
{=H ptt 


@,7:7 #6:" 


POSITION B,8:7? Hb;" Shi bës 
<=! pe 
1) BRE 


POSITION 
POSITION 


8,23:? H6;" 
8,18:7 pr" 


+++++++E 


1825 POSITION CoS SS dé 
fff C A 
i8379 POSITION 
B Jti" 
i835 POSITION 
+: &tien 
1848 POSITION 
Fg tC 
i845 POSITION 
&t'or 
1858 POSITION 
ttti" 
1855 POSITION 
///f£g" 
1858 POSITION 
1865 POSITION 
++f++++ i š 
1878 POSITION 
d d (U 
1875 POSITION 
3428" 
1888 POSITION 
at+¢ " 
1885 POSITION 8,21:? 
7/7e" 
1898 RETURN 
i895 GRAPHICS Z2:PQKE 711,4Z:POKE 788,3 
B:POKE 718,8:POQKE 789,18;P0KE 752,1 
ii88 POSITION 7,3:7 #6; "TERER" 
1185 POSITION 9,5:7 #6; BY": POSITION 4 
,9:? Ho6;"ALLAN KNOPP'' 
1118 ? "PRESS OH TO BEGIN 
Däer) TO RESTART DURING 


8,11:7 16;" 


8,12:7 HO; — ;2!'4( 


8,13:? d6;" i-H'a&tt n 


8,14:7? H6;" ;)!+( )'//// 


8,15:7 ti6;" (H'a 


8,16:7? 16;"7;2!*( ) tt 6 4 4 
8,17:? tMb;"CcHu'o /////// 


15; ") 1 Cr 
HG; UIH+ ttt tttetet 


@,18:7 
8,13:7 


8,28:? t6; "e SSS SSS PS gl, 


8,21:7 Ho; "HE 


@,22:7 SI 78 


H6;" 


GAME" 

1115 IF PEEK(532792(>6 THEN 1115 

1128 POSITION 2,1:? H6;Uback in a MOME 
nt" 


OBSERVATIONS ON 
PAPER CLIP 


This new word processor has a number of features not found on 
any other ATARI word processor. It is not all peaches and cream, but 
PAPER CLIP offers some unique options. 

PAPER CLIP'S ability to preview the text before it is printed is 
unsurpassed. However, there are several other features worthy of note. 
For example, there are USER DEFINED printer codes, specialized 
“Macro” Files and Koala Graphic capabilities as well as the ability to 
configure the program for virtually any printer available. 

| found a few shortcomings in the program which may influence 
some prospective buyers. In my estimation, the most serious drawback 
is that the text buffer will not accept key input fast enough to keep up 
with a very fast typist. | found the key response to be somewhat sluggish. 
Typing at 50 words a minute will cause the buffer to "bubble over” and 
drop some characters. For most of us slow typists this will never be a 
problem. However, to a serious or professional typist this handicap will 
automatically eliminate PAPER CLIP from contention. 

Another disadvantage is that in spite of 155 pages of 
documentation, | had to read between the lines of the Documentation 
to specifically adapt the program to my FX-80 Printer. Through 
experimentation, | have learned a few undocumented or sparsely 
documented short cuts and/or further enhancements which | will pass 
along. 

It is possible to configure the program to take advantage of the 
Epson's ability to use proportional type. The procedure is to binary load 
from DOS the "PRTR.COM" file and then, following the instructions, load 
in the configuration file for the specified printer. In my case l loaded in 
the "FX8OALT.CNF'' file. By going through this file | was able to see what 
DEFAULT values were placed in the file for the various options and printer 
codes and then record them for future reference and/or possible 
alteration. There is no record of specific printer code values anywhere 
in the documentation. The configuration files alone access this 
information. On the program disk | found that the 4 USER DEFINED 
PRINT CODES were predefined to contain the Graphic Dump Codes for 
the FX80. | redefined these codes to contain the Proportional and 
Enlarged ON and OFF codes — and then saved the altered file to another 
Epson configuration file name of my own. 

Further checking the printer configuration file will reveal information 
about micro spacing and optional pitch fonts which are otherwise not 
specifically mentioned. 


Another discovery was that double column printing will not work 


correctly unless the formatting line (pitch, margin, etc.) is exactly at the 
beginning of the text. In other words, set the margins as per instructions 
but don’t put a carriage return at any point between the format line and 
the beginning of text. If you do, the right column will print first and always 
be one line above the left column. If you are used to other word 
prosessers in which the formatting line stands alone and is terminated 
by a RETURN, this is hard to remember. However if you are careful you 
will be rewarded with a very fine looking double-column printout. 

In writing this review l| also found that | could not (while in double 
column mode) “place” a paragraph symbol at the end of the format line 
where the text needed to start. | could do this if the text were justified 
left on the screen — but not at the end of the format line. Since | needed 
paragraph indentation, the solution was to leave 5 spaces at the end 
of the format line before beginning to enter text. 

The manual suggests that a CONTROL-SHIFT-DELETE followed by 
a RETURN will empty the paste buffer. This is not so! Instead, move the 
curser to a blank line and follow the CONTROL-SHIFT-DELETE with a 
SHIFT-DELETE. This will effectively empty the paste buffer. 

Each screen line of PAPER CLIP is ended by a small diamond-shaped 
mark. This has proved extremely helpful as it serves as a pointer to the 
number of spaces between the last word on the line and the first word 
on the next. No longer do | end up with a few gaps here and there nor 
is it necessary to justify screen output periodically as with the other word 
processors | have used. This is a fine touch inspite of the fact that it 
is not documented. 

When moving a block of text with PAPER CLIP | thought at first 
that | had to clear out "room" — or else other text was overwritten. But 
this is not the case as long as | was not in the over-type mode rather 
than the insertion mode of text entry. In my early experiments my pastes 
were sometimes over-pastes. 
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My original standard for Atari word processors has always been 
LETTER PERFECT. It was sometimes cumbersome to use but has 
continued to be very flexible. Nevertheless | dropped it last year having 
grown tired of the incompatibility of LJK and ATARI files. 

When THE WRITER'S TOOL came out | used it exclusively. It wasn't 
totally flexible, but it was easy to use. The big drawback to this program 
was poor file merging capabilities. 

PAPER CLIP, in spite of some of my reservations, will be the word 
processor | will rely on — at least for the Atari 8-bit machine. It isn't THE 
Perfect Word Processor but what it can't do my others can and in my 
view PAPER CLIP is the best all-a-round word processor currently 
available for the ATARI. 

— Graham Smith 


COMPUTER 
QUARTERBACK 


COMPUTER QUARTERBACK ($40, SSI, 1981, second edition, by 
DAN BUNTEN) has been around for a number of years, but this was my 
first introduction to it. Prior to this it was not available on the Atari. | 
have always been sceptical about games which try to duplicate situations 
which involve so much human interaction. In a game like football 
everything depends on each of the individual players' attributes and how 
they interact as a team in any given situation. To me those are too many 
variables to actively duplicate in a computer game, certainly a 48k one. 

COMPUTER QUARTERBACK is a pleasant surprise. The designer 
utilized his computer space primarily for the developement of the play 
variables. This has limited the amount of computer space for graphics. 
The graphics display is fairly simple. The primary screen shows a football 
field to the left with a football in the center. The football is the only 
graphics on the field, and shows where the current line is. On the edge 
of the field are two markers denoting first down and current ball position. 
To the right of this you have a score board which shows score, quarter, 
down, and time remaining. Above this you find the last play played. It 
is listed as the offensive play, defensive play, and results. Below the score 
board is a graphics representation of the two teams' current alignment 
expressed in traditional “X” and “O” configuration. This is the sum total 
of the game graphics. The only part which actively moves in a game is 
the ball marker on the playing field. | was surprised to find that these 
simple grahics in no way detracted from the game. 

The game allows you to play either another player or the computer. 
The play comes in two versions semipro and pro. The semipro version 
allows you 18 offensive plays and 14 defensive plays. The game comes 
with a sheet depicting the course of each play. The pro version allows 
you 36 offensive plays and 24 defensive plays. Each play is numbered 
and selected by moving the joystick or paddle until the desired play 
number appears next to your team. 

Part of the excitement in this game is that the offense must press 
the button three times on a specific play before that choice is activated. 
This means that both the offensive and defensive player are trying to 
adjust their lines up to the last minutes. Of course the more times you 
shift your line the greater the chance that your team will not get the 
signal and a penalty will be called. Players are allowed to call timeouts 
and at halftime the teams' statistics are shown. As this is a real time 
game players may choose the length of time of each quarter, the 
computer is set to play best with 10 minute quarters. In this game the 
players have also been given the option to create their own teams or 
send in for discs from SSI, which have stats for the major teams in 1980. 
When using the draft, player quality will effect all aspects of the game. 
The pro version also allows you to create a game film, if you have a 80 
column printer. This game film lists play by play down situations, yards 
to first down before play, absolute yard mark, play of both teams and 
headings for quarter and score. Basically | find this game a very fast 
paced game which leaves me with the real flavor of football, all you need 


is the roar of the crowd. 
— Nick Chrones 


A Programmer 
Test Drives a 130XE 


Over four years ago | bought my first computer, an Atari 800 which 
came with a whopping 16k of RAM. It served me well, but this past 
winter it was starting to let me down. Imagine my joy when | heard that 
the highly touted new Atari 130XE computers were going to be available 
almost immediately at a price one sixth of my original computer. Better 
yet, they would have 128k of RAM and be completely compatible with 
existing Atari 8 bit machines. What choice did | have but to rush out 
and buy one? 

The first thing a former 800 owner notices when he brings home 
his 130XE is its size, or lack of it. It is tiny and feather light compared 
to the old 800! After using it, one discovers that it handles very much 
like an 800XL. This, of course, means one has to put up with booting 
up a translator for some software, and | have even come across some 
older programs that absolutely refuse to work no matter what. 

However, | think the new programs which will run only on this new 
machine will make those old ones pale in comparision, so this 
incompatibility will only be short lived. Besides, the idea of a modifiable 
operating system isn't all bad. For example, the Eugene, OR Translator 
includes an option for fast floating point routines, and with some of the 
mathematics programs | use, the difference is really noticeable. In fact, 
| suggest some talented machine language programmers to look into 
rewriting the printer driver portion of the OS so it can use a bank or two 
of the extra 130XE memory as a printer buffer. Then an application 
program could print to the printer as fast as memory transfer can take 
place, and while the user is doing something else, the printer driver can 
send the data out as the printer becomes ready for it, perhaps during 
VBI or by some other interupt mechanism. This type of multitasking could 
be a very saleable project, so how 'bout it you guys with the know how? 

The manual for the 130XE is quite good. It gives a description of 
all the BASIC commands, and includes several example programs much 
as the old BASIC reference manual did (only this manual touches on 
Player Missile graphics). The manual includes all kinds of technical 
information and pinout diagrams of the 130XE. It also explains how to 
access the extra memory banks. 

Perhaps the most noticeable physical feature for this programmer 
in changing to the 130XE was the different keyboard. It has a 'spongy' 
feel, but it grows on you. At first | didn't like it, but now | really do. Moving 
to it from an 800, | especially like the larger shift keys, and the moving 
of the inverse video key to the corner. A nice touch is having the graphics 
characters on the edge of the keys ala the old Commodore machines 
— this feature will likely save me a lot of time while programming using 
character graphics. 

The extra memory in the 130XE is the most useful and noticeable 
functional difference, and will no doubt become even more useful in the 
future. Already the RAMDISK of DOS 2.5 makes excellent use of it, but 
how about somebody coming out with a RAMDISK which will work with 
double density (are you listening OSS??) The RAMDISK also makes a 
disk based language like C much quicker and nicer to use. | have already 
seen an ad for BASIC XE which claims to use the extra memory to give 
the programmer a sizeable 60,000 bytes of programming space (I know 
of a BBS programmer who should be happy to hear that!). | forsee no 
end to the data bases, spread sheets, and word processors which all 
squeeze something out of the extra RAM. | wrote a sector copier on the 
130XE to copy a whole single density disk on a single pass, allowing 
easy multiple copies to be made. | think a few club librarians will be eager 
to try that out (it also does a double density disk in two passes). The 
extra memory is very easy to use from the programmer's standpoint. 

Another really nice feature an old 800 owner will notice is that the 
130XE, like the XLs has a true hardware reset key, which means you 
can recover from almost any crash without loss of program and temper. 
I have managed to lock the machine up several times when programming 
in ACTION!, and each time | was able to recover my program text. 
Additionally, the RAMDISK is also preserved through a reset. The net 
result of all this is that in many cases where with the old 800 | would 
have lost my work, with the 130XE | was safe. 

| have a couple of gripes, though. First of all, I’m still not too hot 
about the idea of the cartridge slot being hidden behind the machine. 
it would have been handier for it to be on the side. Also, the joystick 
ports are recessed deep into the machine, making my speech synthesizer 
not want to fit without heavy removal of plastic on the connectors. 
Finally, wouldn't it have been nicer if the BASIC would not be active 
UNLESS the Option button was held down? It seems | am always booting 
programs which squawk if the BASIC is present. Actually, it is an easy 
matter for programs to try to remove the BASIC first by altering the 
memory bank selection byte, and then they should squawk if a cartridge 
still appears to be present. For example, I did this in a sector copier for 
the 130XE that | wrote. : 


Who will want to buy a 130XE? | think all those out there who have 
mastered their 800s and want a little more power will want to get one. 
When more programs come out which require the extra memory, those 
with XLs may also wish to consider upgrading. After all, the cost is not 
prohibitive. What about the argument that anyone buying a computer 
should get a 16 bit machine, specifically an ST? First of all, it is quite 
a bit more investment, and all your old software won't work. It further 
remains to be seen how the STs will catch on and what software will 
come out. So, unless you have lots of money and are prepared to start 
again from scratch, if you want a new computer you better stick with 
a 130XE. 

To sum up, although there are a few minor ouches, | have lots of 
praise for the 130XE. | heartily recommend that anyone with an old, ailing 
800 buy one. You won't be sorry. Incidentally, anyone out there interested 


in an old, faithful Atari 800. . .? 
— Dale Lutz 


ROWS AND COLUMNS 


Rows and Columns is a program to aid in producing financial 
reports in row and column format. It consists of an array of cells 16 
columns wide by 50 rows high. Each cell is 9 characters wide and can 
contain one of four types of data: 

1) Alphanumeric data - Used mainly to label rows or columns, it 
starts with a non-numeric character and its numeric value is zero. 

2) A number - Once you start to enter a number, you can enter 
nothing else. The number will be converted to dollars and cents format. 

3) A column sum - Sums show up in inverse characters on the screen 
along with an arrow (pointing up for columns). Sums are cumulative. If 
more than one appears, each contains the sum of all numbers above it 
(not including previous sums) 

4) A row sum - Row sums contain all number cells to the left of 
the sum cell. 

Mode of Entry 

There are two modes of entry; by rows and by columns. You can 
toggle between them by pressing ESC and then 'M' (for Mode). The mode 
of entry is indicated at the top of the screen. After a cell is filled the 
cursor will be positioned down one for column entry or to the right one 
cell for row entry. Pressing ‘*’ will indicate you want a sum to occupy 
the present cell. If you are in row entry mode it will be a row sum, a 
column sum if in Column entry mode. 

Moving Around: You can move around the array of cells by using 
the arrow keys (CTRL arrow). The cell for entry is to the left of the cursor. 
The ‘caret’ key will move you to the top of the page; the ‘lesser than’ 
key all the way to the left side. The ‘greater than’ key positions you at 
the rightmost column containing an entry. 

Calculation: Sums are updated only when you specify to do so. To 
update the sums press ESC followed by ‘C’ (Calculate). Rows are 
summed first and then columns, leading to these two rules: 

1) No column sums are included in a row sum, (column sums are 
done second). 

2) Row sums are treated as normal numbers when doing column 
sums. 

Since one space of the sums is taken by the arrow, the highest value 
that can be summed is 99999.99. If you're doing tabulations where larger 
sums will appear you can probably afford to by a better program. 

Saving/Loading Data: Saving or loading is done by pressing ESC 
followed by a “U or ‘C’. You will be prompted for a filename. Use the full 
filename (D:CASH.CAL). 

Printing: Use ESC followed by ‘P’ to print to a printer. 80 columns 
is assumed and if required, the printing will be split in two sets of columns 


separated by three blank lines. 
— Stan Ockers 
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SKYPLOT 


PLAN ATARI UM - ACE-tronomy Disk ©  . 

The best things in life are free, right? You doubt it? Look up, at the 
evening or morning sky. You can share Newton's and Galileo's wonder 
at thé magnificent sky under which we live ourlives, and enjoy scenes 
which have produced awe and delight in a thousand generations of 
humanity. 

But “You can't tell the players without a program”. Now we have 
a program for you in the ACE Library. It's called Plan atari um. It will 
show you the sun, moon and planets as they can be seen from any place 
on earth this side of the Poles, for any time you desire, ranging from this 
evening to 2001, from your birth day (and time) to that of Caesar, Buddha 
or the U.S.A. 

See the moon and planets in the skies of Asia as Marco Polo saw 
them on the silk caravan route. Watch a solar eclipse as astronomers 
will see it from Mauna Kea, Hawaii in 1991. Or follow the sun around 
the sky until it sets ... in the North, then rises again an hour or two 
later, still in the North! 

Boot up with BASIC, and run Plan atari um. Follow the simple 
directions for adjusting your color screen, then look at the sample half- 
sky display of planets. . .at noon! 

Only on your Atari can you see the planets lined up in the full light 
of day, and watch the solar system flow, hour to hour, or year to year. 
Set the time to noon of any day, then let the program cycle a month at 
a time. Watch Venus as it moves around the sun in its orbit, while Mercury 
goes twice as fast in its much smaller path around our star. To watch 
Mercury circle the sun, set the cycle step to 10 days by pressing the 
“clear” (don't Shift) key. You will see the sun fixed in the (noon) sky while 
its two nearest satellites move around it in steps — and you watch, 
moving with its third satellite. 

Each planet is in the sky overhead once each day, but the time of 
day varies for each with its place in its own orbit. Saturn takes more 
than 100 times longer to complete one orbit than does Mercury. So 
Mercury, like Venus, moves rapidly across the sky night to night, then 
disappears into the glare of daylight. Saturn seems almost fixed in place 
like a star. It's in the night sky for almost six months. Then in the daylight 
half of our sky it's fixed for the next six months, almost like Orion or 
the Pleiades. 

It'S interesting to explore the way the planets look to people in the 
southern hemisphere. You can 'go' to Tasmania (42 S,148 E) or the Straits 
of Magellan (53 S, 71 W) to watch the sun, moon and planets moving 
across the northern sky. Then you could cycle the display in latitude (hit 
+ then L, then “Insert” (no Shift!) once or twice), after picking a dawn 
sky full of planets in the east. Try this in late June and December, then 
in either March or September. 

This will demontrate the change of seasons as the sun moves from 
the winter to summer solstices, rising over the tropic of Cancer, then 
over the Equator, finally — six months later — over the tropic of 
Capricorn. Notice how short the day is in June when you are in 
Christchurch, New Zealand, and how long Christmas Day is to folks who 
live there — it's their Summer Holiday time! 

One last suggestion: try ‘going’ to the Galapagos Islands (0 deg. 
lat., 91 W) on, say, November 21st of 1984, then set the time to dawn 
and display the eastern horizon. Start a monthly cycle (+ , then M) and 
let it run for a year or so. Back up, if you like, using the - key. Try using 
a 10-day interval (“Clear” key — no Shift!). Try the same thing, but from 
Hawaii (19 N, 155 W) or Tahiti (18 S, 149 W). Then try it from Iceland 
or the Yukon, and your own back yard. Enjoy! 

— Dick Barkley 
President 


KANGA 


Kanga, by Allan Knopp comes to us from the English Atari magazine, 
PAGE 6. “Kanga is a maze game in which you control a jumping 
kangaroo moving around various platforms. In order to progress to the 
next screen you must first get to the sparkling jewel in the center of the 
screen and jump up to touch it. This causes a further section of the 
platform to appear which will enable you to reach the exit. 

"Coming too close to the edge of the platform will cause the 
kangaroo to fall into space and lose a life. Lives can also be lost by being 
hit by a laser which fires at random from the windows in the left hand 
wall. There is a time limit which causes the game to end when it reaches 
zero. The score remaining at the end of each screen is added to the total 
and displayed at the end of the game as the final score. 


Nine users here in Eugene have had their 520 STs since mid-July. 


I've been "using" mine even more than my XE. | say “using” since there 
really isn't much software for it yet. It came to us with only the GEM 


.. Desktop, the operating system, and Atari LOGO programming language. 


I've still not begun to learn LOGO, but | intend to dabble in it a bit. Since 
then we've received about a disk full of public domain demos and 
advertisements sent to us from the San Leandro Computer Club (their 
July and August disks). These demos really whet my appetite for the 
powerful programs to come! 

There is a terminal emulator built into the ST operating system. I’ve 
been using this and a 1200 baud modem to talk to the BBS's around 
town. This has been a lot of fun. l've also been making a lot of copies 
of the public domain stuff for the other ST users in town. Boy is disk 
management easy and QUICK! Even with one disk drive, although ! 
usually remind the user to bring their drive to speed copying. 

The keyboard is a great improvement on the IBM PC keyboard l've 
used at work for the past 3 years. It does lack one thing my old 800 
had: A decent space on which to rest my palms while typing. Looking 
at my XE, | see it also has nearly zero space between the spacebar and 
the edge of the machine. But | didn't notice this lack on the XE since 
the space bar is not wide and there is an area on each side of the space 
bar on which to rest my palms when I'm not acutally striking keys. 

A couple of other minor things: It took me a little while to figure 
out how to set the clock and calender on the ST. The manual did not 
make clear to me | had to “backspace” over the default settings before 
typing in the new. And when | try to write to an un-formatted disk, the 
OS tells me the drive is not responding. Seems like the OS could detect 
an unformatted disk. It made me think something was wrong with my 
drive. | kept powering down and trying to get the drive to "respond"! 

Our experience with DOA STs seems to match that of other clubs. 
About 3096 of them did not work upon first boot up. But it appears there 
is a fix which has so far been 10096 successful. In shipping (or 
something?) the ROM chips become loose. All you need to do (if you 
have this problem) is get in there and re-seat all the socketed ICs, 
removing the adhesive pads from the two 68-pin square chips. Here's 
the procedure (reported by Joe Wrobel in the August, 1985 issue of The 
Acorn Kernel ) which, we are told is approved by Atari and assured it 
will not void our warranty: 

"You start by removing the 6 screws accessible through the bottom 
of the unit. This frees the top cover which can be set aside. Removing 
the cover reveals the keyboard which is sitting atop a metal shield 
protecting the main PC board underneath. The keyboard is connected 
to the main board by a keyed 18-pin in-line connector. To remove the 
keyboard, one just disconnects this connector and undoes the tape which 
holds the cable to the metal shield. The keyboard can now be set aside. 
The top metal shield is held down to the main board by three screws 
and a series of twisted taps which come up from the metal shield beneath 
the main board and fit into slots in the top shield. Two of these tab-slot 
pairs (one on each side) are soldered together. After removing the screws 
and untwisting the other tabs, these bonds are desoldered to remove 
the top metal shield. 

"The top shield has copper tape covering holes in its top and rear. 
These holes are there for access to and output from the RF modulator 
which was originally planned into the machines and has subsequently 
been removed (at least for US purchasers)... . 

"| reseated the DIP ICs by first using a small screwdriver to gently 
lift each end of the IC partly out of its socket, and then firmly pressing 
them back into place. The two square ICs were removed by prying them 
out with asmall tool like a jeweler's screwdriver inserted into a corner 
of the IC socket. | peeled the double-sided adhesive off the chips and 
removed any remnants with my finger nail, then snapped them back in 
their respective sockets. If you should have to go through this procedure 
with your machine, be very careful to note the orientation of the square 
chips in their sockets before you remove them, and work on them one 
at a time so they can't get switched. 

“Re-assembly of the ST goes rather quickly. When replacing the 
external screws, note the three longer ones are used to fasten the case 
at the rear of the machine ae: Sr ce. co. Soe ......... u 

A user here in Eugene called Atari for a warranty replacement rather 
than to open up his machine. Atari was very helpful and air-shipped him 
a replacement upon his phone call (and before they had even received 
the old machine!). His replacement arrived the day after he mailed off 
the old one. 

— Jim Bumpas 
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Atari Computer Enthusiasts 

A.C.E. is an independent, non-profit and tax exempt computer club 
and user's group with no connection to Atari Corp. We are a group 
interested in educating our members in the use of the Atari Computer 
and in giving the latest News, Reviews and Rumors. 

Ail our articles, reviews and programs come from you, our 
members. 

Our membership is world-wide; membership fees include the A.C.E. 
Newsletter. Dues are $14 a year for U.S., and $24 a year Overseas Airmail 
and include about 10 issues a year of the ACE Newsletter. 
Subscription Dep't: 3662 Vine Maple Dr., Eugene, OR 97405. 
**President— Dick Barkley, 2907 Wingate, Eugene, OR 97405 
503-344-5843 
Vice Pres— Larry Gold, 1927 McLean Blvd., Eugene, OR 97405 
503-686-1490 
Librarian— Ron and Aaron Ness, 374 Blackfoot, Eugene, OR 97404 
(503) 689-7106. 

Editors —Mike Dunn, 3662 Vine Maple Dr., Eugene, OR 97405 
503-344-6193 

—Jim Bumpas, 4405 Dillard Rd., Eugene, OR 97405 

503-484-4746 

E.R.A.C.E. (Education SIG Editor)— Nora Young, 105 Hansen Lane, 
Eugene, OR 97404 / 503-688-1458 

Send 50c stamps or coin ($1 overseas) to the Ness’ for the new, 
updated ACE Library List — new in May 84 ! 


Bulletin Board 
(503) 343-4352 
On line 24 hours a day, except for servicing and updating. Consists 
of an 800 XL, 2 double-density double sided disk drives and 2 double- 
sided, double-density, 80-track disk drives, an Epson MX80 printer, a 
1200 baud Prentice P212ST modem, running the Mindlink Bulletin Board 
software distributed by SofMark. 
Best of ACE books 
Volume 1 contains bound issues of the ACE Newsletter from the first 
issue, Oct 81 to June of 1982 
Volume 2 covers July 1982 to June 1983 
Only $12 each ($2 extra for Airmail). Available only from: 
George Suetsugu 
45-602 Apuapu St 
Kanoehe, HI 96744 


| | 
x E Ta 
— JE NOS AN STS 


C 
J2oc02 Vine Maple 2: €uoene OR 97405 


— 


FIRST 
CLASS 
MAIL. 


| 











IYPESETTING 
FROM YOUR COMPUTER 


ATARI OWNERS: If you.have a modem, text editor, and com- 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesettíng 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes “on line" 
And its easy to encode your copy with the few typesetting 
commands. you need. 
COMPLETE CONFIDENTIALITY GUARANTEED 


— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 


sching & Design Services 


30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


SortFinder Index 
A composite index of Atari related articles in four popular computer 
periodicals, including ACE. Volume 1covers April, 1981 to June, 1983. 
Volume 2 covers July, 1983 to December, 1985. Only $6 per printed copy 
or $11 per disk copy for ACE members: 
Jim Carr 2660 S.W. DeArmond 
Corvallis, OR 97333 





